Voorbeeld van Input

Dit voorbeeld maakt gebruik van de functie Input om per keer ΘΘn teken in een bestand te lezen en dat naar het venster Debug af te drukken. Het voorbeeld gaat ervan uit dat TESTBSTD een tekstbestand is met enkele regels proefgegevens.

Dim MyChar
Open "TESTBSTD" For Input As #1    ' Open file.
Do While Not EOF(1)    ' Loop until end of file.
    MyChar = Input(1, #1)    ' Get one character.
    Debug.Print MyChar    ' Print to the Immediate window.
Loop
Close #1    ' Close file.